home *** CD-ROM | disk | FTP | other *** search
/ CICA 1995 August / CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso / disc2 / programr / vbasic / loanapp.exe / LOANM1.BAS < prev    next >
BASIC Source File  |  1993-03-09  |  11KB  |  355 lines
  1. ' COPYRIGHT:
  2. '
  3. '   (C) Copyright Microsoft Corp. 1993.  All rights reserved.
  4. '
  5. '   You have a royalty-free right to use, modify, reproduce and
  6. '   distribute the Sample Files (and/or any modified version) in
  7. '   any way you find useful, provided that you agree that
  8. '   Microsoft has no warranty obligations or liability for any
  9. '   Sample Application Files which are modified.
  10. '
  11. Sub ClearPict1 ()
  12.     MainRec.A.A1 = ""
  13.     MainRec.A.A2 = ""
  14.     MainRec.A.A3 = ""
  15.     MainRec.A.A4 = ""
  16.     MainRec.A.A5 = ""
  17.     MainRec.A.A6 = ""
  18.     MainRec.A.A7 = ""
  19.     MainRec.A.AC1 = 0
  20.     UpdateLabelA
  21. End Sub
  22.  
  23. Sub ClearPict2 ()
  24.     MainRec.B.B1 = ""
  25.     MainRec.B.B2 = ""
  26.     MainRec.B.B3 = ""
  27.     MainRec.B.B4 = ""
  28.     MainRec.B.B5 = ""
  29.     Form1.LabelB.Caption = ""
  30.  
  31.     MainRec.C.C1 = ""
  32.     MainRec.C.C2 = ""
  33.     MainRec.C.C3 = ""
  34.     MainRec.C.C4 = ""
  35.     MainRec.C.C5 = ""
  36.     MainRec.C.CC1 = 0
  37.     For I = 1 To 5
  38.         Form1.LabelC(I).Caption = ""
  39.     Next I
  40.  
  41.     MainRec.D.D1 = ""
  42.     MainRec.D.D2 = ""
  43.     MainRec.D.D3 = ""
  44.     MainRec.D.D4 = ""
  45.     MainRec.D.D5 = ""
  46.     MainRec.D.D6 = ""
  47.     For I = 1 To 6
  48.         Form1.LabelD(I).Caption = ""
  49.     Next I
  50.  
  51.     MainRec.E.E1 = ""
  52.     MainRec.E.E2 = ""
  53.     MainRec.E.E3 = ""
  54.     MainRec.E.E4 = ""
  55.     MainRec.E.E5 = ""
  56.     For I = 1 To 5
  57.         Form1.LabelE(I).Caption = ""
  58.     Next I
  59.     Form1.Check1(1).Value = 0
  60.     Form1.Check1(2).Value = 0
  61.     
  62.     MainRec.F.F1 = ""
  63.     MainRec.F.F2 = ""
  64.     MainRec.F.F3 = ""
  65.     MainRec.F.FC1 = 0
  66.     For I = 1 To 3
  67.         Form1.LabelF(I).Caption = ""
  68.     Next I
  69.     For I = 1 To 2
  70.         Form1.Check1(I).Value = 0
  71.     Next I
  72.  
  73. End Sub
  74.  
  75. Sub ClearPict3 ()
  76.     MainRec.G.G1 = ""
  77.     MainRec.G.G2 = ""
  78.     MainRec.G.G3 = ""
  79.     MainRec.G.G4 = ""
  80.     MainRec.G.G5 = ""
  81.     MainRec.G.G6 = ""
  82.     MainRec.G.G7 = ""
  83.     MainRec.G.G8 = ""
  84.     MainRec.G.GC1 = 0
  85.     For I = 1 To 8
  86.         Form1.LabelG(I).Caption = ""
  87.     Next I
  88.  
  89.     MainRec.H.H1 = ""
  90.     MainRec.H.H2 = ""
  91.     MainRec.H.H3 = ""
  92.     MainRec.H.H4 = ""
  93.     MainRec.H.H5 = ""
  94.     MainRec.H.H6 = ""
  95.     MainRec.H.H7 = ""
  96.     MainRec.H.H8 = ""
  97.     MainRec.H.HC1 = 0
  98.     For I = 1 To 8
  99.         Form1.LabelH(I).Caption = ""
  100.     Next I
  101.  
  102.     MainRec.I.B1 = ""
  103.     MainRec.I.B2 = ""
  104.     MainRec.I.B3 = ""
  105.     MainRec.I.B4 = ""
  106.     MainRec.I.B5 = ""
  107.     Form1.LabelI(1).Caption = ""
  108.     Form1.LabelI(2).Caption = ""
  109.  
  110.     Form1.Label3(1).Caption = ""
  111.     Form1.Label3(2).Caption = ""
  112.     Form1.HEdit1.EraseInk = True
  113.     Form1.HEdit2.EraseInk = True
  114.  
  115. End Sub
  116.  
  117. Sub UpdateLabelA ()
  118.     Form1.LabelA(1).Caption = LTrim$(RTrim$(MainRec.A.A1))
  119.     Form1.LabelA(2).Caption = LTrim$(RTrim$(MainRec.A.A2))
  120.     Form1.LabelA(3).Caption = LTrim$(RTrim$(MainRec.A.A3))
  121.     Form1.LabelA(4).Caption = LTrim$(RTrim$(MainRec.A.A4))
  122.     Form1.LabelA(5).Caption = LTrim$(RTrim$(MainRec.A.A5))
  123.     Form1.LabelA(6).Caption = LTrim$(RTrim$(MainRec.A.A6))
  124.     If MainRec.A.AC1 <> 0 Then
  125.         Form1.LabelA(7).Caption = Form3.Check1(MainRec.A.AC1).Caption + " " + MainRec.A.A7
  126.     Else
  127.         Form1.LabelA(7).Caption = ""
  128.     End If
  129. End Sub
  130.  
  131. Sub UpdateLabelB ()
  132.     Form1.LabelB.Caption = LTrim$(RTrim$(MainRec.B.B1)) + " " + LTrim$(RTrim$(MainRec.B.B2)) + ", " + LTrim$(RTrim$(MainRec.B.B3)) + " " + LTrim$(RTrim$(MainRec.B.B4))
  133. End Sub
  134.  
  135. Sub UpdateLabelC ()
  136.     Form1.LabelC(1).Caption = MainRec.C.C1
  137.     Form1.LabelC(2).Caption = MainRec.C.C2
  138.     Form1.LabelC(3).Caption = MainRec.C.C3
  139.     Form1.LabelC(4).Caption = MainRec.C.C4
  140.     Form1.LabelC(5).Caption = MainRec.C.C5
  141. End Sub
  142.  
  143. Sub UpdateLabelD ()
  144.     Form1.LabelD(1).Caption = MainRec.D.D1
  145.     Form1.LabelD(2).Caption = MainRec.D.D2
  146.     Form1.LabelD(3).Caption = MainRec.D.D3
  147.     Form1.LabelD(4).Caption = MainRec.D.D4
  148.     Form1.LabelD(5).Caption = MainRec.D.D5
  149.     Form1.LabelD(6).Caption = MainRec.D.D6
  150. End Sub
  151.  
  152. Sub UpdateLabelE ()
  153.     Form1.LabelE(1).Caption = MainRec.E.E1
  154.     Form1.LabelE(2).Caption = MainRec.E.E2
  155.     Form1.LabelE(3).Caption = MainRec.E.E3
  156.     Form1.LabelE(4).Caption = MainRec.E.E4
  157.     Form1.LabelE(5).Caption = MainRec.E.E5
  158. End Sub
  159.  
  160. Sub PrimeA ()
  161.     Form3.BEditF3(1).Text = MainRec.A.A1
  162.     Form3.BEditF3(2).Text = MainRec.A.A2
  163.     Form3.BEditF3(3).Text = MainRec.A.A3
  164.     Form3.BEditF3(4).Text = MainRec.A.A4
  165.     Form3.BEditF3(5).Text = MainRec.A.A5
  166.     Form3.BEditF3(6).Text = MainRec.A.A6
  167.     If MainRec.A.AC1 = 3 Then
  168.         Form3.BEditF3(7).Text = MainRec.A.A7
  169.     ElseIf MainRec.A.AC1 = 4 Then
  170.         Form3.BEditF3(8).Text = MainRec.A.A7
  171.     End If
  172.     If MainRec.A.AC1 <> 0 Then
  173.         Form3.Check1(MainRec.A.AC1).Value = 1
  174.     End If
  175.  
  176. End Sub
  177.  
  178. Sub UpdateLabelF ()
  179.     Form1.LabelF(1).Caption = MainRec.F.F1
  180.     Form1.LabelF(2).Caption = MainRec.F.F2
  181.     Form1.LabelF(3).Caption = MainRec.F.F3
  182.     If MainRec.F.FC1 <> 0 Then
  183.         Form1.Check1(MainRec.F.FC1).Value = 1
  184.         Form1.Check1(3 - MainRec.F.FC1).Value = 0
  185.     Else
  186.         Form1.Check1(1).Value = 0
  187.         Form1.Check1(2).Value = 0
  188.     End If
  189. End Sub
  190.  
  191. Sub UpdateLabelG ()
  192.     Form1.LabelG(1).Caption = MainRec.G.G1
  193.     Form1.LabelG(2).Caption = MainRec.G.G2
  194.     Form1.LabelG(3).Caption = MainRec.G.G3
  195.     Form1.LabelG(4).Caption = MainRec.G.G4
  196.     Form1.LabelG(5).Caption = MainRec.G.G5
  197.     Form1.LabelG(6).Caption = MainRec.G.G6
  198.     Form1.LabelG(7).Caption = MainRec.G.G7
  199.     Form1.LabelG(8).Caption = MainRec.G.G8
  200. End Sub
  201.  
  202. Sub UpdateLabelH ()
  203.     Form1.LabelH(1).Caption = MainRec.H.H1
  204.     Form1.LabelH(2).Caption = MainRec.H.H2
  205.     Form1.LabelH(3).Caption = MainRec.H.H3
  206.     Form1.LabelH(4).Caption = MainRec.H.H4
  207.     Form1.LabelH(5).Caption = MainRec.H.H5
  208.     Form1.LabelH(6).Caption = MainRec.H.H6
  209.     Form1.LabelH(7).Caption = MainRec.H.H7
  210.     Form1.LabelH(8).Caption = MainRec.H.H8
  211. End Sub
  212.  
  213. Sub UpdateLabelI ()
  214.     Form1.LabelI(1).Caption = LTrim$(RTrim$(MainRec.I.B1)) + Chr$(10) + Chr$(13) + LTrim$(RTrim$(MainRec.I.B2)) + ", " + LTrim$(RTrim$(MainRec.I.B3)) + " " + LTrim$(RTrim$(MainRec.I.B4))
  215.     Form1.LabelI(2).Caption = LTrim$(RTrim$(MainRec.I.B5))
  216. End Sub
  217.  
  218. Sub UpdateLabelJ ()
  219.     Form1.LabelJ(1).Caption = LTrim$(RTrim$(MainRec.J.B1)) + Chr$(10) + Chr$(13) + LTrim$(RTrim$(MainRec.J.B2)) + ", " + LTrim$(RTrim$(MainRec.J.B3)) + " " + LTrim$(RTrim$(MainRec.J.B4))
  220.     Form1.LabelJ(2).Caption = LTrim$(RTrim$(MainRec.J.B5))
  221. End Sub
  222.  
  223. Sub UpdateFormA ()
  224.     Form3.BEditF3(1).Text = MainRec.A.A1
  225.     Form3.BEditF3(2).Text = MainRec.A.A2
  226.     Form3.BEditF3(3).Text = MainRec.A.A3
  227.     Form3.BEditF3(4).Text = MainRec.A.A4
  228.     Form3.BEditF3(5).Text = MainRec.A.A5
  229.     Form3.BEditF3(6).Text = MainRec.A.A6
  230.     If MainRec.A.AC1 <> 0 Then
  231.         Form3.Check1(MainRec.A.AC1).Value = 1
  232.         If (MainRec.A.AC1 = 3) Or (MainRec.A.AC1 = 4) Then
  233.             Form3.BEditF3(4 + MainRec.A.AC1).Text = MainRec.A.A7
  234.         End If
  235.     End If
  236. End Sub
  237.  
  238. Sub UpdateFormB ()
  239.     Form10.BEditF10(1).Text = MainRec.B.B1
  240.     Form10.BEditF10(2).Text = MainRec.B.B2
  241.     Form10.BEditF10(3).Text = MainRec.B.B3
  242.     Form10.BEditF10(4).Text = MainRec.B.B4
  243.     Form10.BEditF10(5).Text = MainRec.B.B5
  244. End Sub
  245.  
  246. Sub UpdateFormC ()
  247.     Form4.BEditF4(1).Text = MainRec.C.C1
  248.     Form4.BEditF4(2).Text = MainRec.C.C2
  249.     Form4.BEditF4(3).Text = MainRec.C.C3
  250.     Form4.BEditF4(4).Text = MainRec.C.C4
  251.     If MainRec.C.CC1 <> 0 Then
  252.         Form4.Check1(MainRec.C.CC1).Value = 1
  253.         Form4.Check1((MainRec.C.CC1 Mod 3) + 1).Value = 0
  254.         Form4.Check1(((MainRec.C.CC1 + 1) Mod 3) + 1).Value = 0
  255.     Else
  256.         Form4.Check1(1).Value = 0
  257.         Form4.Check1(2).Value = 0
  258.         Form4.Check1(3).Value = 0
  259.     End If
  260. End Sub
  261.  
  262. Sub UpdateFormD ()
  263.     Form5.BEditF5(1).Text = MainRec.D.D1
  264.     Form5.BEditF5(2).Text = MainRec.D.D2
  265.     Form5.BEditF5(3).Text = MainRec.D.D3
  266.     Form5.BEditF5(4).Text = MainRec.D.D4
  267.     Form5.BEditF5(5).Text = MainRec.D.D5
  268.     Form5.BEditF5(6).Text = MainRec.D.D6
  269. End Sub
  270.  
  271. Sub UpdateFormE ()
  272.     Form6.BEditF6(1).Text = MainRec.E.E1
  273.     Form6.BEditF6(2).Text = MainRec.E.E2
  274.     Form6.BEditF6(3).Text = MainRec.E.E3
  275.     Form6.BEditF6(4).Text = MainRec.E.E4
  276.     Form6.BEditF6(5).Text = MainRec.E.E5
  277. End Sub
  278.  
  279. Sub UpdateFormF ()
  280.     Form7.BEditF7(1).Text = MainRec.F.F1
  281.     Form7.BEditF7(2).Text = MainRec.F.F2
  282.     Form7.BEditF7(3).Text = MainRec.F.F3
  283.     If MainRec.F.FC1 <> 0 Then
  284.         Form7.Check1(MainRec.F.FC1).Value = 1
  285.         Form7.Check1(3 - MainRec.F.FC1).Value = 0
  286.     Else
  287.         Form7.Check1(1).Value = 0
  288.         Form7.Check1(2).Value = 0
  289.     End If
  290. End Sub
  291.  
  292. Sub UpdateFormG ()
  293.     Form8.BEditF8(1).Text = MainRec.G.G1
  294.     Form8.BEditF8(2).Text = MainRec.G.G2
  295.     Form8.BEditF8(3).Text = MainRec.G.G3
  296.     Form8.BEditF8(4).Text = MainRec.G.G4
  297.     Form8.BEditF8(5).Text = MainRec.G.G5
  298.     Form8.BEditF8(6).Text = MainRec.G.G6
  299.     Form8.BEditF8(7).Text = MainRec.G.G7
  300.     If MainRec.G.GC1 <> 0 Then
  301.         Form8.Check1(MainRec.G.GC1).Value = 1
  302.         Form8.Check1((MainRec.G.GC1 Mod 3) + 1).Value = 0
  303.         Form8.Check1(((MainRec.G.GC1 + 1) Mod 3) + 1).Value = 0
  304.     Else
  305.         Form8.Check1(1).Value = 0
  306.         Form8.Check1(2).Value = 0
  307.         Form8.Check1(3).Value = 0
  308.     End If
  309. End Sub
  310.  
  311. Sub UpdateFormH ()
  312.     Form9.BEditF9(1).Text = MainRec.H.H1
  313.     Form9.BEditF9(2).Text = MainRec.H.H2
  314.     Form9.BEditF9(3).Text = MainRec.H.H3
  315.     Form9.BEditF9(4).Text = MainRec.H.H4
  316.     Form9.BEditF9(5).Text = MainRec.H.H5
  317.     Form9.BEditF9(6).Text = MainRec.H.H6
  318.     Form9.BEditF9(7).Text = MainRec.H.H7
  319.     If MainRec.H.HC1 <> 0 Then
  320.         Form9.Check1(MainRec.H.HC1).Value = 1
  321.         Form9.Check1((MainRec.H.HC1 Mod 3) + 1).Value = 0
  322.         Form9.Check1(((MainRec.H.HC1 + 1) Mod 3) + 1).Value = 0
  323.     Else
  324.         Form9.Check1(1).Value = 0
  325.         Form9.Check1(2).Value = 0
  326.         Form9.Check1(3).Value = 0
  327.     End If
  328. End Sub
  329.  
  330. Sub UpdateFormI ()
  331.     Form10.BEditF10(1).Text = MainRec.I.B1
  332.     Form10.BEditF10(2).Text = MainRec.I.B2
  333.     Form10.BEditF10(3).Text = MainRec.I.B3
  334.     Form10.BEditF10(4).Text = MainRec.I.B4
  335.     Form10.BEditF10(5).Text = MainRec.I.B5
  336. End Sub
  337.  
  338. Sub UpdateFormJ ()
  339.     Form10.BEditF10(1).Text = MainRec.J.B1
  340.     Form10.BEditF10(2).Text = MainRec.J.B2
  341.     Form10.BEditF10(3).Text = MainRec.J.B3
  342.     Form10.BEditF10(4).Text = MainRec.J.B4
  343.     Form10.BEditF10(5).Text = MainRec.J.B5
  344. End Sub
  345.  
  346. Sub UpdateDate (Index)
  347.     Form1.Label3(Index).Caption = MainRec.T.T1
  348. End Sub
  349.  
  350. Sub UpdateNewDate (Index)
  351.     Form1.Label3(Index).Caption = Date$
  352.     MainRec.T.T1 = Date$
  353. End Sub
  354.  
  355.